home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / arraylib.h < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  7.4 KB  |  233 lines
  1.  
  2. static object LI2();
  3. static object LI5();
  4. static object LI7();
  5. static object LI8();
  6. static object LI9();
  7. static object LI10();
  8. static object LI11();
  9. static object LI12();
  10. static object LI13();
  11. static object LI14();
  12. static object LI15();
  13. static object LI16();
  14. static object LI17();
  15. static object LI18();
  16. static object LI19();
  17. static object LI20();
  18. static object LI21();
  19. static object LI23();
  20. static object LI25();
  21. static object LI1();
  22. #define VMB1 register object *base=vs_top;
  23. #define VMS1  register object *sup=vs_top+3;vs_top=sup;
  24. #define VMV1 vs_reserve(3);
  25. #define VMR1(VMT1) vs_top=base ; return(VMT1);
  26. static object LI2();
  27. static int VK2defaults[8]={-1,-2,-1,-2,-2,-2,17,-2};
  28. static struct { short n,allow_other_keys;int *defaults;
  29.      int keys[8];} LI2key={8,0,VK2defaults,{18,19,20,11,14,9,7,8}};
  30. #define VMB2 register object *base=vs_top; object  V30; object Vcs[17];
  31. #define VMS2  register object *sup=vs_top+8;vs_top=sup;
  32. #define VMV2 vs_reserve(8);
  33. #define VMR2(VMT2) vs_top=base ; return(VMT2);
  34. static object LI3();
  35. #define VMB3 object  V44;
  36. #define VMS3
  37. #define VMV3
  38. #define VMR3(VMT3) return(VMT3);
  39. static object LI4();
  40. #define VMB4
  41. #define VMS4
  42. #define VMV4
  43. #define VMR4(VMT4) return(VMT4);
  44. static object LI5();
  45. #define VMB5 register object *base=vs_top; object  V55 ,V53; object Vcs[1];
  46. #define VMS5 vs_top += 1;
  47. #define VMV5 vs_reserve(1);
  48. #define VMR5(VMT5) vs_top=base ; return(VMT5);
  49. static object LI6();
  50. #define VMB6 register object *base=vs_top; object  V62;
  51. #define VMS6  register object *sup=vs_top+2;vs_top=sup;
  52. #define VMV6 vs_reserve(2);
  53. #define VMR6(VMT6) vs_top=base ; return(VMT6);
  54. static object LI7();
  55. #define VMB7 register object *base=vs_top; object  V73 ,V72 ,V68 ,V66; object Vcs[2];
  56. #define VMS7  register object *sup=vs_top+4;vs_top=sup;
  57. #define VMV7 vs_reserve(4);
  58. #define VMR7(VMT7) vs_top=base ; return(VMT7);
  59. static object LI8();
  60. #define VMB8 register object *base=vs_top; object  V85 ,V84 ,V78; object Vcs[2];
  61. #define VMS8  register object *sup=vs_top+2;vs_top=sup;
  62. #define VMV8 vs_reserve(2);
  63. #define VMR8(VMT8) vs_top=base ; return(VMT8);
  64. static object LI9();
  65. #define VMB9 register object *base=vs_top; object  V89; object Vcs[2];
  66. #define VMS9  register object *sup=vs_top+1;vs_top=sup;
  67. #define VMV9 vs_reserve(1);
  68. #define VMR9(VMT9) vs_top=base ; return(VMT9);
  69. static object LI10();
  70. #define VMB10 register object *base=vs_top; object  V95; object Vcs[2];
  71. #define VMS10  register object *sup=vs_top+1;vs_top=sup;
  72. #define VMV10 vs_reserve(1);
  73. #define VMR10(VMT10) vs_top=base ; return(VMT10);
  74. static object LI11();
  75. #define VMB11 register object *base=vs_top; object Vcs[3];
  76. #define VMS11  register object *sup=vs_top+4;vs_top=sup;
  77. #define VMV11 vs_reserve(4);
  78. #define VMR11(VMT11) vs_top=base ; return(VMT11);
  79. static object LI12();
  80. #define VMB12 register object *base=vs_top; object Vcs[3];
  81. #define VMS12  register object *sup=vs_top+4;vs_top=sup;
  82. #define VMV12 vs_reserve(4);
  83. #define VMR12(VMT12) vs_top=base ; return(VMT12);
  84. static object LI13();
  85. #define VMB13 register object *base=vs_top; object Vcs[3];
  86. #define VMS13  register object *sup=vs_top+4;vs_top=sup;
  87. #define VMV13 vs_reserve(4);
  88. #define VMR13(VMT13) vs_top=base ; return(VMT13);
  89. static object LI14();
  90. #define VMB14 register object *base=vs_top; object Vcs[3];
  91. #define VMS14  register object *sup=vs_top+4;vs_top=sup;
  92. #define VMV14 vs_reserve(4);
  93. #define VMR14(VMT14) vs_top=base ; return(VMT14);
  94. static object LI15();
  95. #define VMB15 register object *base=vs_top; object Vcs[3];
  96. #define VMS15  register object *sup=vs_top+4;vs_top=sup;
  97. #define VMV15 vs_reserve(4);
  98. #define VMR15(VMT15) vs_top=base ; return(VMT15);
  99. static object LI16();
  100. #define VMB16 register object *base=vs_top; object Vcs[3];
  101. #define VMS16  register object *sup=vs_top+4;vs_top=sup;
  102. #define VMV16 vs_reserve(4);
  103. #define VMR16(VMT16) vs_top=base ; return(VMT16);
  104. static object LI17();
  105. #define VMB17 register object *base=vs_top; object Vcs[3];
  106. #define VMS17  register object *sup=vs_top+4;vs_top=sup;
  107. #define VMV17 vs_reserve(4);
  108. #define VMR17(VMT17) vs_top=base ; return(VMT17);
  109. static object LI18();
  110. #define VMB18 register object *base=vs_top; object Vcs[3];
  111. #define VMS18  register object *sup=vs_top+4;vs_top=sup;
  112. #define VMV18 vs_reserve(4);
  113. #define VMR18(VMT18) vs_top=base ; return(VMT18);
  114. static object LI19();
  115. #define VMB19 register object *base=vs_top; object Vcs[3];
  116. #define VMS19  register object *sup=vs_top+4;vs_top=sup;
  117. #define VMV19 vs_reserve(4);
  118. #define VMR19(VMT19) vs_top=base ; return(VMT19);
  119. static object LI20();
  120. #define VMB20 register object *base=vs_top; object Vcs[3];
  121. #define VMS20  register object *sup=vs_top+4;vs_top=sup;
  122. #define VMV20 vs_reserve(4);
  123. #define VMR20(VMT20) vs_top=base ; return(VMT20);
  124. static object LI21();
  125. #define VMB21 register object *base=vs_top; object Vcs[2];
  126. #define VMS21  register object *sup=vs_top+4;vs_top=sup;
  127. #define VMV21 vs_reserve(4);
  128. #define VMR21(VMT21) vs_top=base ; return(VMT21);
  129. static object LI22();
  130. #define VMB22 register object *base=vs_top; object  V167;
  131. #define VMS22  register object *sup=vs_top+2;vs_top=sup;
  132. #define VMV22 vs_reserve(2);
  133. #define VMR22(VMT22) vs_top=base ; return(VMT22);
  134. static object LI23();
  135. #define VMB23 register object *base=vs_top; object  V184 ,V183 ,V182 ,V181 ,V180 ,V179 ,V178 ,V176; object Vcs[3];
  136. #define VMS23  register object *sup=vs_top+2;vs_top=sup;
  137. #define VMV23 vs_reserve(2);
  138. #define VMR23(VMT23) vs_top=base ; return(VMT23);
  139. static object LI24();
  140. #define VMB24 register object *base=vs_top;
  141. #define VMS24  register object *sup=vs_top+2;vs_top=sup;
  142. #define VMV24 vs_reserve(2);
  143. #define VMR24(VMT24) vs_top=base ; return(VMT24);
  144. static object LI25();
  145. static struct { short n,allow_other_keys;int *defaults;
  146.      int keys[7];} LI25key={7,0,(int *)Cstd_key_defaults,{18,19,20,11,9,7,8}};
  147. #define VMB25 register object *base=vs_top; object  V212 ,V211 ,V209 ,V208 ,V207 ,V204 ,V202; object Vcs[17];
  148. #define VMS25  register object *sup=vs_top+6;vs_top=sup;
  149. #define VMV25 vs_reserve(6);
  150. #define VMR25(VMT25) vs_top=base ; return(VMT25);
  151. #define VM25 6
  152. #define VM24 2
  153. #define VM23 2
  154. #define VM22 2
  155. #define VM21 4
  156. #define VM20 4
  157. #define VM19 4
  158. #define VM18 4
  159. #define VM17 4
  160. #define VM16 4
  161. #define VM15 4
  162. #define VM14 4
  163. #define VM13 4
  164. #define VM12 4
  165. #define VM11 4
  166. #define VM10 1
  167. #define VM9 1
  168. #define VM8 2
  169. #define VM7 4
  170. #define VM6 2
  171. #define VM5 1
  172. #define VM4 0
  173. #define VM3 0
  174. #define VM2 8
  175. #define VM1 3
  176. static char * VVi[33]={
  177. #define Cdata VV[32]
  178. (char *)(LI1),
  179. (char *)(LI2),
  180. (char *)(&LI2key),
  181. (char *)(LI3),
  182. (char *)(LI4),
  183. (char *)(LI5),
  184. (char *)(LI6),
  185. (char *)(LI7),
  186. (char *)(LI8),
  187. (char *)(LI9),
  188. (char *)(LI10),
  189. (char *)(LI11),
  190. (char *)(LI12),
  191. (char *)(LI13),
  192. (char *)(LI14),
  193. (char *)(LI15),
  194. (char *)(LI16),
  195. (char *)(LI17),
  196. (char *)(LI18),
  197. (char *)(LI19),
  198. (char *)(LI20),
  199. (char *)(LI21),
  200. (char *)(LI22),
  201. (char *)(LI23),
  202. (char *)(LI24),
  203. (char *)(LI25),
  204. (char *)(&LI25key)
  205. };
  206. #define VV ((object *)VVi)
  207. static  LnkT31() ;
  208. static  (*Lnk31)() = LnkT31;
  209. static  LnkT30() ;
  210. static  (*Lnk30)() = LnkT30;
  211. static  LnkT29() ;
  212. static  (*Lnk29)() = LnkT29;
  213. static object  LnkTLI28() ;
  214. static object  (*LnkLI28)() = LnkTLI28;
  215. static  LnkT25() ;
  216. static  (*Lnk25)() = LnkT25;
  217. static  LnkT27() ;
  218. static  (*Lnk27)() = LnkT27;
  219. static object  LnkTLI26() ;
  220. static object  (*LnkLI26)() = LnkTLI26;
  221. static object  LnkTLI25() ;
  222. static object  (*LnkLI25)() = LnkTLI25;
  223. static object  LnkTLI24() ;
  224. static object  (*LnkLI24)() = LnkTLI24;
  225. static  LnkT23() ;
  226. static  (*Lnk23)() = LnkT23;
  227. static object  LnkTLI22() ;
  228. static object  (*LnkLI22)() = LnkTLI22;
  229. static object  LnkTLI21() ;
  230. static object  (*LnkLI21)() = LnkTLI21;
  231. static  LnkT16() ;
  232. static  (*Lnk16)() = LnkT16;
  233.